home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Right_to_L2160308192009.psc / RtoL TreeView / basRtL.bas next >
BASIC Source File  |  2009-08-19  |  1KB  |  38 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Public rs As DAO.Recordset
  5. Public dbs As DAO.Database
  6.  
  7. Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, _
  8. ByVal nIndex As Long) As Long
  9.  
  10. Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, _
  11. ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  12.  
  13. Public Declare Function InvalidateRect Lib "user32" (ByVal hWnd As Long, lpRect As Long, _
  14. ByVal bErase As Long) As Long
  15.  
  16. Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, _
  17. ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
  18.  
  19. Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
  20.  
  21. Public Const GW_MAX = 5
  22. Public Const WS_EX_LAYOUTRTL = &H400000
  23. Public Const GWL_EXSTYLE = (-20)
  24. Public Sub ConnectAccessDb()
  25.     
  26.     Set dbs = OpenDatabase(App.Path & "\Test.mdb", False, False, ";Pwd=admin???")
  27.     
  28. End Sub
  29. Public Sub CloseAccessDb()
  30.   
  31.     rs.Close
  32.     dbs.Close
  33.     Set rs = Nothing
  34.     Set dbs = Nothing
  35.  
  36. End Sub
  37.  
  38.